home *** CD-ROM | disk | FTP | other *** search
/ Fritz: All Fritz / All Fritz.zip / All Fritz / FILES / EDUCLING / SPELLBEE.LZH / MINUET.BAS < prev    next >
BASIC Source File  |  1983-06-18  |  1KB  |  42 lines
  1. 10 DIM TUNE$(4)
  2. 20 CLS:KEY OFF
  3. 30 LOCATE 11,32:PRINT "Minuet in D Minor"
  4. 40 LOCATE 12,35:PRINT "J.S. Bach"
  5. 50 FOR MEASURE=1 TO 32
  6. 60 READ NOTES$
  7. 70 TUNE$(MEASURE\8)=TUNE$(MEASURE\8)+NOTES$
  8. 80 NEXT MEASURE
  9. 90 PLAY "xTUNE$(0);xTUNE$(1);xTUNE$(2);xTUNE$(3);xTUNE$(4);"
  10. 100 DATA t90 ml l8 o3 a4 o4 f e d c#
  11. 110 DATA d4 o3 a4 b-4
  12. 120 DATA o3 c# e g b- a g
  13. 130 DATA f4 e f d4
  14. 140 DATA f4 b- a o4 d c
  15. 150 DATA f4 e d c o3 b-
  16. 160 DATA a b-16 o4 c16 o3 f4 e4
  17. 170 DATA f2
  18. 180 DATA a4 o4 f e d c#
  19. 190 DATA d4 o3 a4 b-4
  20. 200 DATA c# e g b- a g
  21. 210 DATA f4 e f d4
  22. 220 DATA f4 b- a o4 d c
  23. 230 DATA f4 e d c o3 b-
  24. 240 DATA a b-16 o4 c16 o3 f4 e4
  25. 250 DATA f2
  26. 260 DATA ms o4 a4 o3 f ml o4 a g f
  27. 270 DATA e16 f16 g c2
  28. 280 DATA ms f4 o3 d ml o4 f e d
  29. 290 DATA c#16 d16 e o3 a2
  30. 300 DATA a b o4 c# d e f
  31. 310 DATA g e c# b- a g
  32. 320 DATA f16 e16 d e4 c#4
  33. 330 DATA d2.
  34. 340 DATA ms a4 o3 f ml o4 a g f
  35. 350 DATA e16 f16 g c2
  36. 360 DATA ms f4 o3 d ml o4 f e d
  37. 370 DATA c#16 d16 e o3 a2
  38. 380 DATA a b o4 c# d e f
  39. 390 DATA g e c# b- a g
  40. 400 DATA f16 e16 d e4 c#4
  41. 410 DATA d2.
  42.